home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / ByteArray.p < prev    next >
Text File  |  2004-01-31  |  1KB  |  38 lines
  1. pTempVar <- <primitive 110 7 >
  2. <primitive 112 pTempVar 1  " new: " \
  3.   #( #[ 16r21 16rFA 16r01 16r74 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " size " \
  7.   #( #[ 16r20 16rFA 16r01 16r75 16rF3 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " printAsChars " \
  11.   #( #[ 16r59 16r30 16r20 16rFA 16r03 16rD1 16rA8 16rF2 16rF5] \
  12.     #( 11  )) >
  13.  
  14. <primitive 112 pTempVar 4  " displayBytes: " \
  15.   #( #[ 16r05 16r16 16r20 16r21 16rFA 16r03 16rE5 16rF2 16rF5] \
  16.     #(  )) >
  17.  
  18. <primitive 112 pTempVar 5  " printString " \
  19.   #( #[ 16r30 16r71 16r51 16r20 16rA3 16rB2 16rE1 16r02 16r0D 16r21 16r20 \
  20.         16r22 16rB1 16rA9 16r0B 16r12 16r31 16r0B 16r12 16rF1 16r71 \
  21.         16rF3 16rB3 16rF2 16r21 16r32 16r0B 16r12 16rF3 16rF5] \
  22.     #( '#[ ' ' ' ']'  )) >
  23.  
  24. <primitive 112 pTempVar 6  " at:put: " \
  25.   #( #[ 16r20 16r21 16r22 16rFA 16r03 16r77 16rF2 16rF5] \
  26.     #(  )) >
  27.  
  28. <primitive 112 pTempVar 7  " at: " \
  29.   #( #[ 16r20 16r21 16rFA 16r02 16r76 16rF3 16rF5] \
  30.     #(  )) >
  31.  
  32. <primitive 98 #ByteArray \
  33.   <primitive 97 #ByteArray #ArrayedCollection #AmigaTalk:General/ByteArray.st \
  34.    #(  ) \
  35.    #( #new: #size #printAsChars #displayBytes: #printString #at:put: #at:  ) \
  36.   pTempVar 3 6 > #ordinary >
  37.  
  38.